plotprep <- function(output,string){
	foo <- output[rownames(output) %in% string,]
	return(foo)
}